home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / fonttable.tex < prev    next >
Text File  |  1985-06-03  |  2KB  |  76 lines
  1. \baselineskip 0pt \lineskip 0pt
  2. \vsize 7.3 in
  3. \let\sl=\tensl
  4. \newbox\zero
  5. \newbox\row
  6. \newbox\pile
  7. \newdimen\vu
  8.  
  9. \output{\shipout\vbox{\hrule width1em\vskip0.4in\box255\vskip0.4in
  10. \hrule width1em}\global\advance\count0 by 1}
  11.  
  12. \setbox\zero\hbox{\sl 0}
  13.  
  14. \def\spike{\hbox to 0pt{\vbox to 1\ht\zero{}}}
  15. \def\cell#1{\hbox to 1\vu{\hfill\char'#1\hfill}\vrule}
  16. \def\label#1{\vbox to 1\ht\row{\vfill
  17.   \hbox to 35pt{\hfill\sl '#10\hskip1em}\vfill}\vrule}
  18.  
  19. \def\seprow{\def\m{\hskip 1\vu{}\vrule height 2pt}\hbox{\m\m\m\m\m\m\m\m}}
  20. \def\cellrow#1{\setbox\row\vbox{\seprow\hbox{\spike\ignorespaces
  21.                \cell{#10}\cell{#11}\cell{#12}\cell{#13}\ignorespaces
  22.                \cell{#14}\cell{#15}\cell{#16}\cell{#17}\ignorespaces
  23.                \hfill}\seprow\hrule}\hbox{\label{#1}\box\row}}
  24.  
  25. \def\lcol#1{\hbox to 1\vu{\hfill{\sl #1}\hfill}\hskip .4pt}
  26. \def\chw#1{\hbox{\char'#1}}
  27.  
  28. \def\colw#1{\vbox{\chw{#10}
  29.                   \chw{#11}
  30.                   \chw{#12}
  31.                   \chw{#13}
  32.                   \chw{#14}
  33.                   \chw{#15}
  34.                   \chw{#16}                                              
  35.                   \chw{#17}}}
  36.  
  37. \def\setw#1{\vbox{\colw{#10}             
  38.                   \colw{#11}
  39.                   \colw{#12}
  40.                   \colw{#13}
  41.                   \colw{#14}
  42.                   \colw{#15}
  43.                   \colw{#16}
  44.                   \colw{#17}}}
  45. \def\getw{\setbox\pile\vbox{\setw0\setw1\hbox to 1\wd\zero{}
  46.           \hbox to 1em{}}\vu=1.625\wd\pile}
  47.  
  48. \def\table#1{\font\tablefont=#1 \tablefont\getw\null\vfill
  49. \hbox to 6in{\hfil\ignorespaces
  50. \vbox{\hbox{\hskip35pt{\sl #1}\hfill}
  51.       \vskip20pt
  52.       \hbox{\hskip35pt\lcol0\lcol1\lcol2\lcol3\lcol4\lcol5\lcol6\lcol7}
  53.       \vskip 4 pt
  54.       \hbox{\hskip35pt\vbox{\hrule width 8\vu}\vbox{\hrule width 3.6pt}}
  55.       \cellrow{00}\cellrow{01}\cellrow{02}\cellrow{03}
  56.       \cellrow{04}\cellrow{05}\cellrow{06}\cellrow{07}
  57.       \cellrow{10}\cellrow{11}\cellrow{12}\cellrow{13}
  58.       \cellrow{14}\cellrow{15}\cellrow{16}\cellrow{17}}\ignorespaces
  59. \hss}\vfill\penalty-10000}
  60.  
  61. \global\def\test{}
  62. \global\def\fin{END }
  63. \def\doit{
  64. \message{Type a valid font name, or END :}
  65. \read 0 to\command
  66. \global\let\test=\command
  67. \ifx \fin\test \relax 
  68. \else \message{Graphing font \command}
  69.        \table{\command}
  70. \doit
  71. \fi
  72. }
  73.  
  74. \doit
  75. \end
  76.